VERSION 5.00
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmBillingCorr 
   Caption         =   "Insert Billing Corrections"
   ClientHeight    =   18200
   ClientLeft      =   -38400
   ClientTop       =   -16720
   ClientWidth     =   25600
   OleObjectBlob   =   "frmBillingCorr.frx":0000
   StartUpPosition =   1  'CenterOwner
End
Attribute VB_Name = "frmBillingCorr"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

'Written by Jalisa Greene
'Last Modified by Jalisa Greene
'Last Updated 6/11/2014


Option Explicit   '**every variable must be declared**'
Dim LocID As Integer
Dim rowNum As Integer


Private Sub UserForm_Initialize()
'**THIS SUB IS CALLED WHEN THE FORM IS OPENED, PUTS LOCATIONS IDS IN THE BOX FOR SELECTION**'

Dim loc As Range
'**ADD EACH LOCATION ID TO THE BOX**'
For Each loc In Worksheets("INV").Range("locations")
    If loc <> "" Then cmbLocations.AddItem (loc.Value)
Next

End Sub

Private Sub cmbLocations_Change()
'**ACTION SUB CALLED WHEN USER SELECTS A LOCATION**'

'**ERROR CHECKING INVOLVED IF USER DECIDES TO TYPE IN A VALUE INSTEAD OF SELECTING IT**'
On Error GoTo ErrorResume

    LocID = cmbLocations.Value
    '**ADD EACH CONTAINER ASSOCIATED WITH THAT LOCATION TO THE BOX BELOW**'
    Call InsertContainers
    Exit Sub
    
ErrorResume:
    Exit Sub
    
End Sub

Private Sub InsertContainers()
'**CALLED ONCE A USER SELECTS A LOCATION, ADDS EACH EXISITING CONTAINER TO A DROPDOWN FOR SELECTION**'

cmbContainers.Clear

'**Insert Container 1'
If WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:ZA2000"), 27, False) <> "" Then cmbContainers.AddItem (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:ZA2000"), 55, False))
'**Insert Container 2'
If WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:ZA2000"), 79, False) <> "" Then cmbContainers.AddItem (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:ZA2000"), 107, False))
'**Insert Container 3'
If WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:ZA2000"), 131, False) <> "" Then cmbContainers.AddItem (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:ZA2000"), 159, False))
'**Insert Container 4'
If WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:ZA2000"), 183, False) <> "" Then cmbContainers.AddItem (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:ZA2000"), 211, False))
'**Insert Container 5'
If WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:ZA2000"), 235, False) <> "" Then cmbContainers.AddItem (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:ZA2000"), 263, False))
'**Insert Container 6/ Compactor 1'
If WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:ZA2000"), 287, False) <> "" Then cmbContainers.AddItem (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:ZA2000"), 321, False))
'**Insert Container 7/ Compactor 2'
If WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:ZA2000"), 339, False) <> "" Then cmbContainers.AddItem (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:ZA2000"), 373, False))
'**Insert Container 8/ Compactor 3'
If WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:ZA2000"), 391, False) <> "" Then cmbContainers.AddItem (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:ZA2000"), 425, False))

End Sub

Private Sub cmbContainers_Change()
'**ACTION SUB CALLED WHEN THE USER SELECTS A CONTAINER'
'**HIDE ALL THE COMPACTOR EXTRA FIELDS, WILL BE UNHIDDEN IF NEEDED**'

    txt1FlatHaul.Visible = False
    lbl1FlatHaul.Visible = False
    txt1FlatDisposal.Visible = False
    lbl1FlatDisposal.Visible = False
    txt1WeightPerHaul.Visible = False
    lbl1WeightPerHaul.Visible = False
    txt1HaulsPerMonth.Visible = False
    lbl1HaulsPerMonth.Visible = False
    txt1QuanPerMonth.Visible = False
    lbl1QuanPerMonth.Visible = False
    txt1MaxWeight.Visible = False
    lbl1MaxWeight.Visible = False
    txt2FlatHaul.Visible = False
    txt2FlatDisposal.Visible = False
    lbl2FlatHaul.Visible = False
    lbl2FlatDisposal.Visible = False
    
    '**FIND OUT WHICH CONTAINER WE SELECTED**'
    Call FindContainerData
    
End Sub

Private Sub btnCancel_Click()
'**ACTION SUB IF THE USER CLICKED CANCEL**'

frmBillingCorr.Hide

End Sub

Private Sub FindContainerData()
'**SUB WILL FIND WHICH CONTAINER THE USER SELECTED, AND CALL THE CORRESPONDING METHODS**'

'**ERROR CHECKING IF THE USER DECIDES TO TYPE IN A VALUE INSTEAD OF SELECTING ONE**'
On Error GoTo ErrorResume:
    Dim containNum As Integer

    
    'Find out which container number it is for the location'
    rowNum = WorksheetFunction.Match(LocID, Worksheets("INV").Range("locations"), 0) + 7
    If cmbContainers.Value = Worksheets("ASR").Range("BC" & rowNum).Value Then
        containNum = 1
    ElseIf cmbContainers.Value = Worksheets("ASR").Range("DC" & rowNum).Value Then
        containNum = 2
    ElseIf cmbContainers.Value = Worksheets("ASR").Range("FC" & rowNum).Value Then
        containNum = 3
    ElseIf cmbContainers.Value = Worksheets("ASR").Range("HC" & rowNum).Value Then
        containNum = 4
    ElseIf cmbContainers.Value = Worksheets("ASR").Range("JC" & rowNum).Value Then
        containNum = 5
    ElseIf cmbContainers.Value = Worksheets("ASR").Range("LI" & rowNum).Value Then
        containNum = 6
    ElseIf cmbContainers.Value = Worksheets("ASR").Range("NI" & rowNum).Value Then
        containNum = 7
    ElseIf cmbContainers.Value = Worksheets("ASR").Range("PI" & rowNum).Value Then
        containNum = 8
    End If
    
    '**RUNNER METHOD TO INSERT DATA, SEND CONTAINER NUMBER AS PARAMETER**'
    Call InsertContainerData(containNum)
    Exit Sub
    
ErrorResume:
    Exit Sub
    
End Sub

Private Sub InsertContainerData(containNum As Integer)
    '**METHOD DECIDES ON WHICH DATA TO INSERT INTO THE FIELDS, IF THERE ARE ALREADY BILLING CORRECTIONS, THE BILLING CORRECTIONS THAT WERE ENTERED WILL SHOW**'
    '**ELSE, THE CURRENT SPEND WILL SHOW AND THE USER CAN JUST MODIFY AND SAVE**'
    
    If containNum = 1 Then
        Call InsertContain1
        If Worksheets("ASR").Range("UG" & rowNum).Value <> "" Then
            Call InsertContain1Corrections
        Else:
            Call InsertContain1AutoInput
        End If
        
    ElseIf containNum = 2 Then
        Call InsertContain2
        If Worksheets("ASR").Range("VN" & rowNum).Value <> "" Then
            Call InsertContain2Corrections
        Else:
            Call InsertContain2AutoInput
        End If
        
    ElseIf containNum = 3 Then
        Call InsertContain3
        If Worksheets("ASR").Range("WU" & rowNum).Value <> "" Then
            Call InsertContain3Corrections
        Else:
            Call InsertContain3AutoInput
        End If
        
    ElseIf containNum = 4 Then
        Call InsertContain4
        If Worksheets("ASR").Range("YB" & rowNum).Value <> "" Then
            Call InsertContain4Corrections
        Else:
            Call InsertContain4AutoInput
        End If
    ElseIf containNum = 5 Then
        Call InsertContain5
        If Worksheets("ASR").Range("ZI" & rowNum).Value <> "" Then
            Call InsertContain5Corrections
        Else:
            Call InsertContain5AutoInput
        End If
        
    ElseIf containNum = 6 Then
        Call InsertContain6
        If Worksheets("ASR").Range("AAP" & rowNum).Value <> "" Then
            Call InsertContain6Corrections
        Else:
            Call InsertContain6AutoInput
        End If
        
    ElseIf containNum = 7 Then
        Call InsertContain7
        If Worksheets("ASR").Range("ACB" & rowNum).Value <> "" Then
            Call InsertContain7Corrections
        Else:
            Call InsertContain7AutoInput
        End If
        
    ElseIf containNum = 8 Then
        Call InsertContain8
        If Worksheets("ASR").Range("ADN" & rowNum).Value <> "" Then
            Call InsertContain8Corrections
        Else:
            Call InsertContain8AutoInput
        End If
    End If

End Sub

Private Sub InsertContain1()
'**CONTAINER 1 CURRENT SPEND**'

    txt1Vendor.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 27, False)
    txt1TypeWaste.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 33, False)
    txt1NumContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 29, False)
    txt1SzContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 30, False)
    txt1Mes.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 31, False)
    txt1ContainType.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 32, False)
    txt1NumPickups.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 34, False)
                
    If (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 35, False) <> "0") Then
        txt1YdsPerWeek.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 35, False)
    Else: txt1YdsPerWeek.Text = ""
    End If
    
    txt1BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 41, False), "Currency")
    txt1EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 42, False), "Currency")
    txt1FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 43, False)
    txt1FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 44, False)
    txt1FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 45, False), "Currency")
    txt1FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 46, False)
    txt1FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 47, False), "Currency")
    txt1FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 48, False)
    txt1FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 49, False), "Currency")
    txt1FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 50, False)
    txt1FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 51, False), "Currency")
    txt1FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 52, False)
    txt1FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 53, False), "Currency")
    txt1Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 58, False)
    txt1Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 59, False)
    txt1Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 60, False)
    txt1Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 61, False)
    txt1Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 62, False)
                
    If (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 54, False) <> "0") Then
        txt1MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 54, False), "Currency")
    Else: txt1MonSpend.Text = ""
    End If
End Sub

Private Sub InsertContain2()
    '**CONTAINER 2 CURRENT SPEND**'
    
    txt1Vendor.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 79, False)
    txt1TypeWaste.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 81, False)
    txt1NumContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 82, False)
    txt1SzContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 83, False)
    txt1Mes.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 84, False)
    txt1ContainType.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 85, False)
    txt1NumPickups.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 86, False)
    
    If (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 87, False) <> "0") Then
        txt1YdsPerWeek.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 87, False)
        Else: txt1YdsPerWeek.Text = ""
    End If

    txt1BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 93, False), "Currency")
    txt1EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 94, False), "Currency")
    txt1FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 95, False)
    txt1FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 96, False)
    txt1FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 97, False), "Currency")
    txt1FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 98, False)
    txt1FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 99, False), "Currency")
    txt1FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 100, False)
    txt1FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 101, False), "Currency")
    txt1FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 102, False)
    txt1FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 103, False), "Currency")
    txt1FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 104, False)
    txt1FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 105, False), "Currency")
    txt1Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 110, False)
    txt1Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 111, False)
    txt1Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 112, False)
    txt1Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 113, False)
    txt1Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 114, False)
    
    If (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 106, False) <> "0") Then
        txt1MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 106, False), "Currency")
        Else: txt1MonSpend.Value = ""
    End If
End Sub

Private Sub InsertContain3()
'**CONTAINER 3 CURRENT SPEND**'

    txt1Vendor.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 131, False)
    txt1TypeWaste.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 133, False)
    txt1NumContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 134, False)
    txt1SzContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 135, False)
    txt1Mes.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 136, False)
    txt1ContainType.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 137, False)
    txt1NumPickups.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 138, False)
    
    If (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 139, False) <> "0") Then
        txt1YdsPerWeek.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 139, False)
        Else: txt1YdsPerWeek.Text = ""
    End If
    
    txt1BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 145, False), "Currency")
    txt1EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 146, False), "Currency")
    txt1FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 147, False)
    txt1FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 148, False)
    txt1FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 149, False), "Currency")
    txt1FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 150, False)
    txt1FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 151, False), "Currency")
    txt1FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 152, False)
    txt1FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 153, False), "Currency")
    txt1FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 154, False)
    txt1FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 155, False), "Currency")
    txt1FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 156, False)
    txt1FeePrice5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 157, False)
    txt1Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 162, False)
    txt1Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 163, False)
    txt1Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 164, False)
    txt1Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 165, False)
    txt1Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 166, False)
    
    If (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 158, False) <> "0") Then
        txt1MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 158, False), "Currency")
        Else: txt1MonSpend.Text = ""
    End If
End Sub

Private Sub InsertContain4()
'**CONTAINER 4 CURRENT SPEND**'

    txt1Vendor.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 183, False)
    txt1TypeWaste.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 185, False)
    txt1NumContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 186, False)
    txt1SzContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 187, False)
    txt1Mes.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 188, False)
    txt1ContainType.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 189, False)
    txt1NumPickups.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 190, False)
    
    If (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 191, False) <> "0") Then
        txt1YdsPerWeek.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 191, False)
        Else: txt1YdsPerWeek.Text = ""
    End If
    
    txt1BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 197, False), "Currency")
    txt1EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 198, False), "Currency")
    txt1FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 199, False)
    txt1FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 200, False)
    txt1FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 201, False), "Currency")
    txt1FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 202, False)
    txt1FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 203, False), "Currency")
    txt1FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 204, False)
    txt1FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 205, False), "Currency")
    txt1FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 206, False)
    txt1FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 207, False), "Currency")
    txt1FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 208, False)
    txt1FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 209, False), "Currency")
    txt1Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 214, False)
    txt1Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 215, False)
    txt1Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 216, False)
    txt1Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 217, False)
    txt1Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 218, False)
    
    If (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 210, False) <> "0") Then
        txt1MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 210, False), "Currency")
        Else: txt1MonSpend.Text = ""
    End If
End Sub

Private Sub InsertContain5()
'**CONTAINER 5 CURRENT SPEND**'

    txt1Vendor.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 235, False)
    txt1TypeWaste.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 237, False)
    txt1NumContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 238, False)
    txt1SzContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 239, False)
    txt1Mes.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 240, False)
    txt1ContainType.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 241, False)
    txt1NumPickups.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 242, False)
    
    If (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 243, False) <> "0") Then
        txt1YdsPerWeek.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 243, False)
        Else: txt1YdsPerWeek.Text = ""
    End If
    
    txt1BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 249, False), "Currency")
    txt1EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 250, False), "Currency")
    txt1FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 251, False)
    txt1FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 252, False)
    txt1FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 253, False), "Currency")
    txt1FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 254, False)
    txt1FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 255, False), "Currency")
    txt1FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 256, False)
    txt1FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 257, False), "Currency")
    txt1FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 258, False)
    txt1FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 259, False), "Currency")
    txt1FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 260, False)
    txt1FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 261, False), "Currency")
    txt1Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 266, False)
    txt1Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 267, False)
    txt1Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 268, False)
    txt1Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 269, False)
    txt1Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 270, False)
    
    If (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 262, False) <> "0") Then
        txt1MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 262, False), "Currency")
        Else: txt1MonSpend.Text = ""
    End If
End Sub

Private Sub InsertContain6()
'**CONTAINER 6 CURRENT SPEND**'

    txt1Vendor.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 287, False)
    txt1TypeWaste.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 289, False)
    txt1NumContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 290, False)
    txt1SzContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 291, False)
    txt1Mes.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 292, False)
    txt1ContainType.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 293, False)
    txt1NumPickups.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 294, False)
    
    If (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 295, False) <> "0") Then
        txt1YdsPerWeek.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 295, False)
        Else: txt1YdsPerWeek.Text = ""
    End If
    
    txt1MaxWeight.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 296, False)
    txt1QuanPerMonth.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 297, False)
    txt1HaulsPerMonth.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 298, False)
    txt1WeightPerHaul.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 299, False)
    txt1FlatHaul.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 300, False)
    txt1FlatDisposal.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 301, False)
    
    '**UNHIDE THE EXTRA FIELDS  FOR COMPACTORS**'
    txt1FlatHaul.Visible = True
    lbl1FlatHaul.Visible = True
    txt1FlatDisposal.Visible = True
    lbl1FlatDisposal.Visible = True
    txt1WeightPerHaul.Visible = True
    lbl1WeightPerHaul.Visible = True
    txt1HaulsPerMonth.Visible = True
    lbl1HaulsPerMonth.Visible = True
    txt1QuanPerMonth.Visible = True
    lbl1QuanPerMonth.Visible = True
    txt1MaxWeight.Visible = True
    lbl1MaxWeight.Visible = True
    
    txt1BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 307, False), "Currency")
    txt1EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 308, False), "Currency")
    txt1FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 309, False)
    txt1FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 310, False)
    txt1FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 311, False), "Currency")
    txt1FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 312, False)
    txt1FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 313, False), "Currency")
    txt1FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 314, False)
    txt1FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 315, False), "Currency")
    txt1FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 316, False)
    txt1FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 317, False), "Currency")
    txt1FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 318, False)
    txt1FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 319, False), "Currency")
    txt1Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 324, False)
    txt1Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 325, False)
    txt1Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 326, False)
    txt1Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 327, False)
    txt1Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 328, False)

    
    If (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 320, False) <> "0") Then
        txt1MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 320, False), "Currency")
        Else: txt1MonSpend.Text = ""
    End If

End Sub

Private Sub InsertContain7()
'**CONTAINER 7 CURRENT SPEND**'

    txt1Vendor.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 339, False)
    txt1TypeWaste.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 341, False)
    txt1NumContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 342, False)
    txt1SzContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 343, False)
    txt1Mes.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 344, False)
    txt1ContainType.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 345, False)
    txt1NumPickups.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 346, False)
    
    If (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 347, False) <> "0") Then
        txt1YdsPerWeek.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 347, False)
        Else: txt1YdsPerWeek.Text = ""
    End If
    
    txt1MaxWeight.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 348, False)
    txt1QuanPerMonth.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 349, False)
    txt1HaulsPerMonth.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 350, False)
    txt1WeightPerHaul.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 351, False)
    txt1FlatHaul.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 352, False)
    txt1FlatDisposal.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 353, False)
    
    '**UNHIDE THE EXTRA FIELDS FOR COMPACTORS**'
    txt1FlatHaul.Visible = True
    lbl1FlatHaul.Visible = True
    txt1FlatDisposal.Visible = True
    lbl1FlatDisposal.Visible = True
    txt1WeightPerHaul.Visible = True
    lbl1WeightPerHaul.Visible = True
    txt1HaulsPerMonth.Visible = True
    lbl1HaulsPerMonth.Visible = True
    txt1QuanPerMonth.Visible = True
    lbl1QuanPerMonth.Visible = True
    txt1MaxWeight.Visible = True
    lbl1MaxWeight.Visible = True
    
    txt1BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 359, False), "Currency")
    txt1EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 360, False), "Currency")
    txt1FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 361, False)
    txt1FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 362, False)
    txt1FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 363, False), "Currency")
    txt1FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 364, False)
    txt1FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 365, False), "Currency")
    txt1FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 366, False)
    txt1FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 367, False), "Currency")
    txt1FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 368, False)
    txt1FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 369, False), "Currency")
    txt1FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 370, False)
    txt1FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 371, False), "Currency")
    txt1Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 376, False)
    txt1Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 377, False)
    txt1Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 378, False)
    txt1Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 379, False)
    txt1Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 380, False)
    
    If (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 372, False) <> "0") Then
        txt1MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 372, False), "Currency")
        Else: txt1MonSpend.Text = ""
    End If
End Sub

Private Sub InsertContain8()
'**CONTAINER 8 CURRENT SPEND**'

    txt1Vendor.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 391, False)
    txt1TypeWaste.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 393, False)
    txt1NumContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 394, False)
    txt1SzContain.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 395, False)
    txt1Mes.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 396, False)
    txt1ContainType.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 397, False)
    txt1NumPickups.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 398, False)
    
    If (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 399, False) <> "0") Then
        txt1YdsPerWeek.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 399, False)
        Else: txt1YdsPerWeek.Text = ""
    End If
    
    txt1MaxWeight.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 400, False)
    txt1QuanPerMonth.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 401, False)
    txt1HaulsPerMonth.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 402, False)
    txt1WeightPerHaul.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 403, False)
    txt1FlatHaul.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 404, False)
    txt1FlatDisposal.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 405, False)
    
    '**UNHIDE EXTRA FIELDS FOR COMPACTORS**'
    txt1FlatHaul.Visible = True
    lbl1FlatHaul.Visible = True
    txt1FlatDisposal.Visible = True
    lbl1FlatDisposal.Visible = True
    txt1WeightPerHaul.Visible = True
    lbl1WeightPerHaul.Visible = True
    txt1HaulsPerMonth.Visible = True
    lbl1HaulsPerMonth.Visible = True
    txt1QuanPerMonth.Visible = True
    lbl1QuanPerMonth.Visible = True
    txt1MaxWeight.Visible = True
    lbl1MaxWeight.Visible = True
    
    txt1BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 411, False), "Currency")
    txt1EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 412, False), "Currency")
    txt1FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 413, False)
    txt1FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 414, False)
    txt1FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 415, False), "Currency")
    txt1FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 416, False)
    txt1FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 417, False), "Currency")
    txt1FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 418, False)
    txt1FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 419, False), "Currency")
    txt1FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 420, False)
    txt1FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 421, False), "Currency")
    txt1FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 422, False)
    txt1FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 423, False), "Currency")
    txt1Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 428, False)
    txt1Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 429, False)
    txt1Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 430, False)
    txt1Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 431, False)
    txt1Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 432, False)

    If (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 424, False) <> "0") Then
        txt1MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 424, False), "Currency")
        Else: txt1MonSpend.Text = ""
    End If


End Sub

Private Sub InsertContain1AutoInput()
'**IF THERE ARE NO BILLING CORRECTIONS FOR CONTAINER 1, INSERT IN THE CURRENT SPEND**'

    txt2BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 41, False), "Currency")
    txt2EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 42, False), "Currency")
    txt2FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 43, False)
    txt2FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 44, False)
    txt2FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 45, False), "Currency")
    txt2FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 46, False)
    txt2FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 47, False), "Currency")
    txt2FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 48, False)
    txt2FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 49, False), "Currency")
    txt2FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 50, False)
    txt2FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 51, False), "Currency")
    txt2FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 52, False)
    txt2FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 53, False), "Currency")
    txt2Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 58, False)
    txt2Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 59, False)
    txt2Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 60, False)
    txt2Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 61, False)
    txt2Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 62, False)
                
    If (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 54, False) <> "0") Then
        txt2MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 54, False), "Currency")
    Else: txt2MonSpend.Text = ""
    End If
End Sub

Private Sub InsertContain2AutoInput()
'**IF THERE ARE NO BILLING CORRECTIONS FOR CONTAINER 2, INSERT IN THE CURRENT SPEND**'

    txt2BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 93, False), "Currency")
    txt2EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 94, False), "Currency")
    txt2FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 95, False)
    txt2FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 96, False)
    txt2FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 97, False), "Currency")
    txt2FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 98, False)
    txt2FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 99, False), "Currency")
    txt2FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 100, False)
    txt2FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 101, False), "Currency")
    txt2FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 102, False)
    txt2FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 103, False), "Currency")
    txt2FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 104, False)
    txt2FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 105, False), "Currency")
    txt2Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 110, False)
    txt2Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 111, False)
    txt2Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 112, False)
    txt2Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 113, False)
    txt2Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 114, False)
    
    If (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 106, False) <> "0") Then
        txt2MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 106, False), "Currency")
        Else: txt2MonSpend.Value = ""
    End If
End Sub

Private Sub InsertContain3AutoInput()
'**IF THERE ARE NO BILLING CORRECTIONS FOR CONTAINER 3, INSERT IN THE CURRENT SPEND**'

    txt2BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 145, False), "Currency")
    txt2EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 146, False), "Currency")
    txt2FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 147, False)
    txt2FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 148, False)
    txt2FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 149, False), "Currency")
    txt2FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 150, False)
    txt2FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 151, False), "Currency")
    txt2FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 152, False)
    txt2FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 153, False), "Currency")
    txt2FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 154, False)
    txt2FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 155, False), "Currency")
    txt2FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 156, False)
    txt2FeePrice5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 157, False)
    txt2Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 162, False)
    txt2Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 163, False)
    txt2Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 164, False)
    txt2Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 165, False)
    txt2Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 166, False)
    
    If (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 158, False) <> "0") Then
        txt2MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 158, False), "Currency")
        Else: txt2MonSpend.Text = ""
    End If
End Sub

Private Sub InsertContain4AutoInput()
'**IF THERE ARE NO BILLING CORRECTIONS FOR CONTAINER 4, INSERT IN THE CURRENT SPEND**'

    txt2BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 197, False), "Currency")
    txt2EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 198, False), "Currency")
    txt2FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 199, False)
    txt2FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 200, False)
    txt2FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 201, False), "Currency")
    txt2FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 202, False)
    txt2FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 203, False), "Currency")
    txt2FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 204, False)
    txt2FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 205, False), "Currency")
    txt2FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 206, False)
    txt2FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 207, False), "Currency")
    txt2FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 208, False)
    txt2FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 209, False), "Currency")
    txt2Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 214, False)
    txt2Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 215, False)
    txt2Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 216, False)
    txt2Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 217, False)
    txt2Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 218, False)
    
    If (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 210, False) <> "0") Then
        txt2MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 210, False), "Currency")
        Else: txt2MonSpend.Text = ""
    End If
End Sub

Private Sub InsertContain5AutoInput()
'**IF THERE ARE NO BILLING CORRECTIONS FOR CONTAINER 5, INSERT IN THE CURRENT SPEND**'

    txt2BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 249, False), "Currency")
    txt2EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 250, False), "Currency")
    txt2FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 251, False)
    txt2FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 252, False)
    txt2FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 253, False), "Currency")
    txt2FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 254, False)
    txt2FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 255, False), "Currency")
    txt2FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 256, False)
    txt2FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 257, False), "Currency")
    txt2FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 258, False)
    txt2FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 259, False), "Currency")
    txt2FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 260, False)
    txt2FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 261, False), "Currency")
    txt2Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 266, False)
    txt2Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 267, False)
    txt2Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 268, False)
    txt2Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 269, False)
    txt2Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 270, False)
    
    If (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 262, False) <> "0") Then
        txt2MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 262, False), "Currency")
        Else: txt2MonSpend.Text = ""
    End If
End Sub

Private Sub InsertContain6AutoInput()
'**IF THERE ARE NO BILLING CORRECTIONS FOR CONTAINER 6, INSERT IN THE CURRENT SPEND**'

    txt2FlatHaul.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 300, False)
    txt2FlatDisposal.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 301, False)
    txt2FlatHaul.Visible = True
    lbl2FlatHaul.Visible = True
    txt2FlatDisposal.Visible = True
    lbl2FlatDisposal.Visible = True

    txt2BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 307, False), "Currency")
    txt2EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 308, False), "Currency")
    txt2FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 309, False)
    txt2FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 310, False)
    txt2FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 311, False), "Currency")
    txt2FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 312, False)
    txt2FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 313, False), "Currency")
    txt2FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 314, False)
    txt2FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 315, False), "Currency")
    txt2FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 316, False)
    txt2FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 317, False), "Currency")
    txt2FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 318, False)
    txt2FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 319, False), "Currency")
    txt2Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 324, False)
    txt2Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 325, False)
    txt2Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 326, False)
    txt2Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 327, False)
    txt2Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 328, False)

    
    If (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 320, False) <> "0") Then
        txt2MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 320, False), "Currency")
        Else: txt2MonSpend.Text = ""
    End If

End Sub

Private Sub InsertContain7AutoInput()
'**IF THERE ARE NO BILLING CORRECTIONS FOR CONTAINER 7, INSERT IN THE CURRENT SPEND**'
    
    txt2FlatHaul.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 352, False)
    txt2FlatDisposal.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 353, False)
    txt2FlatHaul.Visible = True
    lbl2FlatHaul.Visible = True
    txt2FlatDisposal.Visible = True
    lbl2FlatDisposal.Visible = True

    txt2BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 359, False), "Currency")
    txt2EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 360, False), "Currency")
    txt2FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 361, False)
    txt2FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 362, False)
    txt2FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 363, False), "Currency")
    txt2FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 364, False)
    txt2FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 365, False), "Currency")
    txt2FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 366, False)
    txt2FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 367, False), "Currency")
    txt2FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 368, False)
    txt2FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 369, False), "Currency")
    txt2FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 370, False)
    txt2FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 371, False), "Currency")
    txt2Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 376, False)
    txt2Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 377, False)
    txt2Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 378, False)
    txt2Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 379, False)
    txt2Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 380, False)
    
    If (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 372, False) <> "0") Then
        txt2MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 372, False), "Currency")
        Else: txt2MonSpend.Text = ""
    End If
End Sub

Private Sub InsertContain8AutoInput()
'**IF THERE ARE NO BILLING CORRECTIONS FOR CONTAINER 8, INSERT IN THE CURRENT SPEND**'
    
    txt2FlatHaul.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 404, False)
    txt2FlatDisposal.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 405, False)
    txt2FlatHaul.Visible = True
    lbl2FlatHaul.Visible = True
    txt2FlatDisposal.Visible = True
    lbl2FlatDisposal.Visible = True

    
    txt2BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 411, False), "Currency")
    txt2EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 412, False), "Currency")
    txt2FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 413, False)
    txt2FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 414, False)
    txt2FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 415, False), "Currency")
    txt2FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 416, False)
    txt2FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 417, False), "Currency")
    txt2FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 418, False)
    txt2FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 419, False), "Currency")
    txt2FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 420, False)
    txt2FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 421, False), "Currency")
    txt2FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 422, False)
    txt2FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 423, False), "Currency")
    txt2Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 428, False)
    txt2Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 429, False)
    txt2Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 430, False)
    txt2Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 431, False)
    txt2Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 432, False)

    If (WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 424, False) <> "0") Then
        txt2MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 424, False), "Currency")
        Else: txt2MonSpend.Text = ""
    End If


End Sub

Private Sub InsertContain1Corrections()
'**IF CORRECTION INFORMATION HAS ALREADY BEEN INPUTTED, BRING UP THAT INFORMATION**'

    txt2BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 560, False), "Currency")
    txt2EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 561, False), "Currency")
    txt2FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 562, False)
    txt2FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 563, False)
    txt2FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 564, False), "Currency")
    txt2FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 566, False)
    txt2FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 567, False), "Currency")
    txt2FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 569, False)
    txt2FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 570, False), "Currency")
    txt2FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 572, False)
    txt2FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 573, False), "Currency")
    txt2FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 575, False)
    txt2FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 576, False), "Currency")
    txt2Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 565, False)
    txt2Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 568, False)
    txt2Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 571, False)
    txt2Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 574, False)
    txt2Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 577, False)
                
    txt2MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 578, False), "Currency")
End Sub

Private Sub InsertContain2Corrections()
'**IF CORRECTION INFORMATION HAS ALREADY BEEN INPUTTED, BRING UP THAT INFORMATION**'

    txt2BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 593, False), "Currency")
    txt2EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 594, False), "Currency")
    txt2FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 595, False)
    txt2FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 596, False)
    txt2FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 597, False), "Currency")
    txt2FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 599, False)
    txt2FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 600, False), "Currency")
    txt2FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 602, False)
    txt2FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 603, False), "Currency")
    txt2FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 605, False)
    txt2FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 606, False), "Currency")
    txt2FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 608, False)
    txt2FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 609, False), "Currency")
    txt2Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 598, False)
    txt2Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 601, False)
    txt2Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 604, False)
    txt2Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 607, False)
    txt2Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 610, False)
                
    txt2MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 611, False), "Currency")
End Sub

Private Sub InsertContain3Corrections()
'**IF CORRECTION INFORMATION HAS ALREADY BEEN INPUTTED, BRING UP THAT INFORMATION**'

    txt2BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 626, False), "Currency")
    txt2EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 627, False), "Currency")
    txt2FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 628, False)
    txt2FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 629, False)
    txt2FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 630, False), "Currency")
    txt2FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 632, False)
    txt2FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 633, False), "Currency")
    txt2FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 635, False)
    txt2FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 636, False), "Currency")
    txt2FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 638, False)
    txt2FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 639, False), "Currency")
    txt2FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 641, False)
    txt2FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 642, False), "Currency")
    txt2Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 631, False)
    txt2Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 634, False)
    txt2Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 637, False)
    txt2Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 640, False)
    txt2Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 643, False)
                
    txt2MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 644, False), "Currency")
End Sub

Private Sub InsertContain4Corrections()
'**IF CORRECTION INFORMATION HAS ALREADY BEEN INPUTTED, BRING UP THAT INFORMATION**'

    txt2BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 659, False), "Currency")
    txt2EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 660, False), "Currency")
    txt2FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 661, False)
    txt2FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 662, False)
    txt2FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 663, False), "Currency")
    txt2FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 665, False)
    txt2FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 666, False), "Currency")
    txt2FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 668, False)
    txt2FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 669, False), "Currency")
    txt2FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 671, False)
    txt2FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 672, False), "Currency")
    txt2FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 674, False)
    txt2FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 675, False), "Currency")
    txt2Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 664, False)
    txt2Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 667, False)
    txt2Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 670, False)
    txt2Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 673, False)
    txt2Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 676, False)
                
    txt2MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 677, False), "Currency")
End Sub

Private Sub InsertContain5Corrections()
'**IF CORRECTION INFORMATION HAS ALREADY BEEN INPUTTED, BRING UP THAT INFORMATION**'

    txt2BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 692, False), "Currency")
    txt2EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 693, False), "Currency")
    txt2FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 694, False)
    txt2FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 695, False)
    txt2FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 696, False), "Currency")
    txt2FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 698, False)
    txt2FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 699, False), "Currency")
    txt2FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 701, False)
    txt2FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 702, False), "Currency")
    txt2FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 704, False)
    txt2FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 705, False), "Currency")
    txt2FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 707, False)
    txt2FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 708, False), "Currency")
    txt2Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 697, False)
    txt2Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 700, False)
    txt2Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 703, False)
    txt2Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 706, False)
    txt2Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 709, False)
                
    txt2MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 710, False), "Currency")
End Sub

Private Sub InsertContain6Corrections()
'Insert Current information that has already been inserted for Billing Corrections'
    txt2BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 725, False), "Currency")
    txt2EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 726, False), "Currency")
    txt2FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 727, False)
    txt2FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 728, False)
    txt2FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 729, False), "Currency")
    txt2FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 731, False)
    txt2FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 732, False), "Currency")
    txt2FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 734, False)
    txt2FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 735, False), "Currency")
    txt2FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 737, False)
    txt2FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 738, False), "Currency")
    txt2FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 740, False)
    txt2FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 741, False), "Currency")
    txt2Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 730, False)
    txt2Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 733, False)
    txt2Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 736, False)
    txt2Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 739, False)
    txt2Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 742, False)
    txt2FlatHaul.Visible = True
    lbl2FlatHaul.Visible = True
    txt2FlatDisposal.Visible = True
    lbl2FlatDisposal.Visible = True
    txt2FlatHaul.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 746, False)
    txt2FlatDisposal.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 747, False)
                
    txt2MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 743, False), "Currency")
End Sub

Private Sub InsertContain7Corrections()
'**IF CORRECTION INFORMATION HAS ALREADY BEEN INPUTTED, BRING UP THAT INFORMATION**'

    txt2BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 763, False), "Currency")
    txt2EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 764, False), "Currency")
    txt2FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 765, False)
    txt2FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 766, False)
    txt2FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 767, False), "Currency")
    txt2FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 769, False)
    txt2FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 770, False), "Currency")
    txt2FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 772, False)
    txt2FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 773, False), "Currency")
    txt2FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 775, False)
    txt2FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 776, False), "Currency")
    txt2FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 778, False)
    txt2FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 779, False), "Currency")
    txt2Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 768, False)
    txt2Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 771, False)
    txt2Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 774, False)
    txt2Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 777, False)
    txt2Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 780, False)
    txt2FlatHaul.Visible = True
    lbl2FlatHaul.Visible = True
    txt2FlatDisposal.Visible = True
    lbl2FlatDisposal.Visible = True
    txt2FlatHaul.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 784, False)
    txt2FlatDisposal.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 785, False)
                
    txt2MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 781, False), "Currency")
End Sub

Private Sub InsertContain8Corrections()
'**IF CORRECTION INFORMATION HAS ALREADY BEEN INPUTTED, BRING UP THAT INFORMATION**'

    txt2BaseSvc.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 801, False), "Currency")
    txt2EnvFee.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 802, False), "Currency")
    txt2FuelFee.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 803, False)
    txt2FeeType1.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 804, False)
    txt2FeePrice1.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 805, False), "Currency")
    txt2FeeType2.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 807, False)
    txt2FeePrice2.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 808, False), "Currency")
    txt2FeeType3.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 810, False)
    txt2FeePrice3.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 811, False), "Currency")
    txt2FeeType4.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 813, False)
    txt2FeePrice4.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 814, False), "Currency")
    txt2FeeType5.Text = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 816, False)
    txt2FeePrice5.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 817, False), "Currency")
    txt2Rate1.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 806, False)
    txt2Rate2.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 809, False)
    txt2Rate3.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 812, False)
    txt2Rate4.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 815, False)
    txt2Rate5.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 818, False)
    txt2FlatHaul.Visible = True
    lbl2FlatHaul.Visible = True
    txt2FlatDisposal.Visible = True
    lbl2FlatDisposal.Visible = True
    txt2FlatHaul.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 822, False)
    txt2FlatDisposal.Value = WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 823, False)
                
    txt2MonSpend.Value = Format(WorksheetFunction.VLookup(LocID, Worksheets("ASR").Range("A8:AEX1106"), 819, False), "Currency")
End Sub

Private Sub btnClose_Click()
'**ACTION SUB WHEN USER CLICKS THE CLOSE BUTTON**'

Dim msg As Integer
If cmbContainers.Value <> "- Select a Container -" Then
    Dim closer As Integer
    '**ASK IF USER WANTS TO SAVE**'
    closer = MsgBox("You are now closing this form, do you wish to save?", vbYesNoCancel, "Close Billing Corrections Editor")
        '**USER SAID NO**'
        If closer = 7 Then
        Unload frmBillingCorr
        '**USER SAID YES**'
        ElseIf closer = 6 Then
            Call btnSave_Click
            Unload frmBillingCorr
            ThisWorkbook.Save
            '**USER CANCELED**'
        ElseIf closer = 2 Then Exit Sub
    End If
Else:
    Unload frmBillingCorr
End If

'**SAVE WORKBOOK**'
ThisWorkbook.Save
End Sub

Private Sub btnSave_Click()
'**ACTION SUB WHEN A USER CLICKS SAVE**'


Dim containNum As Integer

    '**FIRST FIND CONTAINER WE ARE UPDATING, THEN CALL CORRESPONDING SAVE METHOD**'
    rowNum = WorksheetFunction.Match(LocID, Worksheets("INV").Range("locations"), 0) + 7
    
    If cmbContainers.Value = Worksheets("ASR").Range("BC" & rowNum) Then
        Call SaveCont1(rowNum)
    ElseIf cmbContainers.Value = Worksheets("ASR").Range("DC" & rowNum) Then
        Call SaveCont2(rowNum)
    ElseIf cmbContainers.Value = Worksheets("ASR").Range("FC" & rowNum) Then
        Call SaveCont3(rowNum)
    ElseIf cmbContainers.Value = Worksheets("ASR").Range("HC" & rowNum) Then
        Call SaveCont4(rowNum)
    ElseIf cmbContainers.Value = Worksheets("ASR").Range("JC" & rowNum) Then
        Call SaveCont5(rowNum)
    ElseIf cmbContainers.Value = Worksheets("ASR").Range("LI" & rowNum) Then
        Call SaveCont6(rowNum)
    ElseIf cmbContainers.Value = Worksheets("ASR").Range("NI" & rowNum) Then
        Call SaveCont7(rowNum)
    ElseIf cmbContainers.Value = Worksheets("ASR").Range("PI" & rowNum) Then
        Call SaveCont8(rowNum)
    End If
     
    
End Sub

Private Sub SaveCont1(rowNum As Integer)
    '**Save Container 1 information'
                
    Worksheets("ASR").Range("UG" & rowNum).Value = txt1Vendor.Text
    Worksheets("ASR").Range("UK" & rowNum).Value = txt1TypeWaste.Text
    Worksheets("ASR").Range("UH" & rowNum).Value = txt1NumContain.Value
    Worksheets("ASR").Range("UI" & rowNum).Value = txt1SzContain.Value
    Worksheets("ASR").Range("UJ" & rowNum).Value = txt1Mes.Text
    Worksheets("ASR").Range("UL" & rowNum).Value = txt1NumPickups.Value
                
    Worksheets("ASR").Range("UN" & rowNum).Value = txt2BaseSvc.Value
    Worksheets("ASR").Range("UO" & rowNum).Value = txt2EnvFee.Value
    Worksheets("ASR").Range("UP" & rowNum).Value = txt2FuelFee.Value
    Worksheets("ASR").Range("UQ" & rowNum).Value = txt2FeeType1.Text
    Worksheets("ASR").Range("UR" & rowNum).Value = txt2FeePrice1.Value
    Worksheets("ASR").Range("US" & rowNum).Value = txt2Rate1.Value
    Worksheets("ASR").Range("UT" & rowNum).Value = txt2FeeType2.Text
    Worksheets("ASR").Range("UU" & rowNum).Value = txt2FeePrice2.Value
    Worksheets("ASR").Range("UV" & rowNum).Value = txt2Rate2.Value
    Worksheets("ASR").Range("UW" & rowNum).Value = txt2FeeType3.Text
    Worksheets("ASR").Range("UX" & rowNum).Value = txt2FeePrice3.Value
    Worksheets("ASR").Range("UY" & rowNum).Value = txt2Rate3.Value
    Worksheets("ASR").Range("UZ" & rowNum).Value = txt2FeeType4.Text
    Worksheets("ASR").Range("VA" & rowNum).Value = txt2FeePrice4.Value
    Worksheets("ASR").Range("VB" & rowNum).Value = txt2Rate4.Value
    Worksheets("ASR").Range("VC" & rowNum).Value = txt2FeeType5.Text
    Worksheets("ASR").Range("VD" & rowNum).Value = txt2FeePrice5.Value
    Worksheets("ASR").Range("VE" & rowNum).Value = txt2Rate5.Value
    Worksheets("ASR").Range("VI" & rowNum).Value = "Accepted"
End Sub
Private Sub SaveCont2(rowNum As Integer)
    '**Save Container 2 information'
                
    Worksheets("ASR").Range("VN" & rowNum).Value = txt1Vendor.Text
    Worksheets("ASR").Range("VR" & rowNum).Value = txt1TypeWaste.Text
    Worksheets("ASR").Range("VO" & rowNum).Value = txt1NumContain.Value
    Worksheets("ASR").Range("VP" & rowNum).Value = txt1SzContain.Value
    Worksheets("ASR").Range("VQ" & rowNum).Value = txt1Mes.Text
    Worksheets("ASR").Range("VS" & rowNum).Value = txt1NumPickups.Value
                
    Worksheets("ASR").Range("VU" & rowNum).Value = txt2BaseSvc.Value
    Worksheets("ASR").Range("VV" & rowNum).Value = txt2EnvFee.Value
    Worksheets("ASR").Range("VW" & rowNum).Value = txt2FuelFee.Value
    Worksheets("ASR").Range("VX" & rowNum).Value = txt2FeeType1.Text
    Worksheets("ASR").Range("VY" & rowNum).Value = txt2FeePrice1.Value
    Worksheets("ASR").Range("VZ" & rowNum).Value = txt2Rate1.Value
    Worksheets("ASR").Range("WA" & rowNum).Value = txt2FeeType2.Text
    Worksheets("ASR").Range("WB" & rowNum).Value = txt2FeePrice2.Value
    Worksheets("ASR").Range("WC" & rowNum).Value = txt2Rate2.Value
    Worksheets("ASR").Range("WD" & rowNum).Value = txt2FeeType3.Text
    Worksheets("ASR").Range("WE" & rowNum).Value = txt2FeePrice3.Value
    Worksheets("ASR").Range("WF" & rowNum).Value = txt2Rate3.Value
    Worksheets("ASR").Range("WG" & rowNum).Value = txt2FeeType4.Text
    Worksheets("ASR").Range("WH" & rowNum).Value = txt2FeePrice4.Value
    Worksheets("ASR").Range("WI" & rowNum).Value = txt2Rate4.Value
    Worksheets("ASR").Range("WJ" & rowNum).Value = txt2FeeType5.Text
    Worksheets("ASR").Range("WK" & rowNum).Value = txt2FeePrice5.Value
    Worksheets("ASR").Range("WL" & rowNum).Value = txt2Rate5.Value
    Worksheets("ASR").Range("WP" & rowNum).Value = "Accepted"
End Sub

Private Sub SaveCont3(rowNum As Integer)
    '**Save Container 3 information'
                
    Worksheets("ASR").Range("wu" & rowNum).Value = txt1Vendor.Text
    Worksheets("ASR").Range("WY" & rowNum).Value = txt1TypeWaste.Text
    Worksheets("ASR").Range("WV" & rowNum).Value = txt1NumContain.Value
    Worksheets("ASR").Range("WW" & rowNum).Value = txt1SzContain.Value
    Worksheets("ASR").Range("WX" & rowNum).Value = txt1Mes.Text
    Worksheets("ASR").Range("WZ" & rowNum).Value = txt1NumPickups.Value
                
    Worksheets("ASR").Range("XB" & rowNum).Value = txt2BaseSvc.Value
    Worksheets("ASR").Range("XC" & rowNum).Value = txt2EnvFee.Value
    Worksheets("ASR").Range("XD" & rowNum).Value = txt2FuelFee.Value
    Worksheets("ASR").Range("XE" & rowNum).Value = txt2FeeType1.Text
    Worksheets("ASR").Range("XF" & rowNum).Value = txt2FeePrice1.Value
    Worksheets("ASR").Range("XG" & rowNum).Value = txt2Rate1.Value
    Worksheets("ASR").Range("XH" & rowNum).Value = txt2FeeType2.Text
    Worksheets("ASR").Range("XI" & rowNum).Value = txt2FeePrice2.Value
    Worksheets("ASR").Range("XJ" & rowNum).Value = txt2Rate2.Value
    Worksheets("ASR").Range("XK" & rowNum).Value = txt2FeeType3.Text
    Worksheets("ASR").Range("XL" & rowNum).Value = txt2FeePrice3.Value
    Worksheets("ASR").Range("XM" & rowNum).Value = txt2Rate3.Value
    Worksheets("ASR").Range("XN" & rowNum).Value = txt2FeeType4.Text
    Worksheets("ASR").Range("XO" & rowNum).Value = txt2FeePrice4.Value
    Worksheets("ASR").Range("XP" & rowNum).Value = txt2Rate4.Value
    Worksheets("ASR").Range("XQ" & rowNum).Value = txt2FeeType5.Text
    Worksheets("ASR").Range("XR" & rowNum).Value = txt2FeePrice5.Value
    Worksheets("ASR").Range("XS" & rowNum).Value = txt2Rate5.Value
    Worksheets("ASR").Range("XW" & rowNum).Value = "Accepted"
End Sub

Private Sub SaveCont4(rowNum As Integer)
    '**Save Container 4 information'
                
    Worksheets("ASR").Range("YB" & rowNum).Value = txt1Vendor.Text
    Worksheets("ASR").Range("YF" & rowNum).Value = txt1TypeWaste.Text
    Worksheets("ASR").Range("YC" & rowNum).Value = txt1NumContain.Value
    Worksheets("ASR").Range("YD" & rowNum).Value = txt1SzContain.Value
    Worksheets("ASR").Range("YE" & rowNum).Value = txt1Mes.Text
    Worksheets("ASR").Range("YG" & rowNum).Value = txt1NumPickups.Value
                
    Worksheets("ASR").Range("YI" & rowNum).Value = txt2BaseSvc.Value
    Worksheets("ASR").Range("YJ" & rowNum).Value = txt2EnvFee.Value
    Worksheets("ASR").Range("YK" & rowNum).Value = txt2FuelFee.Value
    Worksheets("ASR").Range("YL" & rowNum).Value = txt2FeeType1.Text
    Worksheets("ASR").Range("YM" & rowNum).Value = txt2FeePrice1.Value
    Worksheets("ASR").Range("YN" & rowNum).Value = txt2Rate1.Value
    Worksheets("ASR").Range("YO" & rowNum).Value = txt2FeeType2.Text
    Worksheets("ASR").Range("YP" & rowNum).Value = txt2FeePrice2.Value
    Worksheets("ASR").Range("YQ" & rowNum).Value = txt2Rate2.Value
    Worksheets("ASR").Range("YR" & rowNum).Value = txt2FeeType3.Text
    Worksheets("ASR").Range("YS" & rowNum).Value = txt2FeePrice3.Value
    Worksheets("ASR").Range("YT" & rowNum).Value = txt2Rate3.Value
    Worksheets("ASR").Range("YU" & rowNum).Value = txt2FeeType4.Text
    Worksheets("ASR").Range("YV" & rowNum).Value = txt2FeePrice4.Value
    Worksheets("ASR").Range("YW" & rowNum).Value = txt2Rate4.Value
    Worksheets("ASR").Range("YX" & rowNum).Value = txt2FeeType5.Text
    Worksheets("ASR").Range("YY" & rowNum).Value = txt2FeePrice5.Value
    Worksheets("ASR").Range("YZ" & rowNum).Value = txt2Rate5.Value
    Worksheets("ASR").Range("ZD" & rowNum).Value = "Accepted"
End Sub

Private Sub SaveCont5(rowNum As Integer)
    '***Save Container 5 information'
                
    Worksheets("ASR").Range("ZI" & rowNum).Value = txt1Vendor.Text
    Worksheets("ASR").Range("ZM" & rowNum).Value = txt1TypeWaste.Text
    Worksheets("ASR").Range("ZJ" & rowNum).Value = txt1NumContain.Value
    Worksheets("ASR").Range("ZK" & rowNum).Value = txt1SzContain.Value
    Worksheets("ASR").Range("ZL" & rowNum).Value = txt1Mes.Text
    Worksheets("ASR").Range("ZN" & rowNum).Value = txt1NumPickups.Value
                
    Worksheets("ASR").Range("ZP" & rowNum).Value = txt2BaseSvc.Value
    Worksheets("ASR").Range("ZQ" & rowNum).Value = txt2EnvFee.Value
    Worksheets("ASR").Range("ZR" & rowNum).Value = txt2FuelFee.Value
    Worksheets("ASR").Range("ZS" & rowNum).Value = txt2FeeType1.Text
    Worksheets("ASR").Range("ZT" & rowNum).Value = txt2FeePrice1.Value
    Worksheets("ASR").Range("ZU" & rowNum).Value = txt2Rate1.Value
    Worksheets("ASR").Range("ZV" & rowNum).Value = txt2FeeType2.Text
    Worksheets("ASR").Range("ZW" & rowNum).Value = txt2FeePrice2.Value
    Worksheets("ASR").Range("ZX" & rowNum).Value = txt2Rate2.Value
    Worksheets("ASR").Range("ZY" & rowNum).Value = txt2FeeType3.Text
    Worksheets("ASR").Range("ZZ" & rowNum).Value = txt2FeePrice3.Value
    Worksheets("ASR").Range("AAA" & rowNum).Value = txt2Rate3.Value
    Worksheets("ASR").Range("AAB" & rowNum).Value = txt2FeeType4.Text
    Worksheets("ASR").Range("AAC" & rowNum).Value = txt2FeePrice4.Value
    Worksheets("ASR").Range("AAD" & rowNum).Value = txt2Rate4.Value
    Worksheets("ASR").Range("AAE" & rowNum).Value = txt2FeeType5.Text
    Worksheets("ASR").Range("AAF" & rowNum).Value = txt2FeePrice5.Value
    Worksheets("ASR").Range("AAG" & rowNum).Value = txt2Rate5.Value
    Worksheets("ASR").Range("AAK" & rowNum).Value = "Accepted"
End Sub

Private Sub SaveCont6(rowNum As Integer)
    '**Save Container 6 information'
                
    Worksheets("ASR").Range("AAP" & rowNum).Value = txt1Vendor.Text
    Worksheets("ASR").Range("AAT" & rowNum).Value = txt1TypeWaste.Text
    Worksheets("ASR").Range("AAQ" & rowNum).Value = txt1NumContain.Value
    Worksheets("ASR").Range("AAR" & rowNum).Value = txt1SzContain.Value
    Worksheets("ASR").Range("AAS" & rowNum).Value = txt1Mes.Text
    Worksheets("ASR").Range("AAU" & rowNum).Value = txt1NumPickups.Value
                
    Worksheets("ASR").Range("AAW" & rowNum).Value = txt2BaseSvc.Value
    Worksheets("ASR").Range("AAX" & rowNum).Value = txt2EnvFee.Value
    Worksheets("ASR").Range("AAY" & rowNum).Value = txt2FuelFee.Value
    Worksheets("ASR").Range("AAZ" & rowNum).Value = txt2FeeType1.Text
    Worksheets("ASR").Range("ABA" & rowNum).Value = txt2FeePrice1.Value
    Worksheets("ASR").Range("ABB" & rowNum).Value = txt2Rate1.Value
    Worksheets("ASR").Range("ABC" & rowNum).Value = txt2FeeType2.Text
    Worksheets("ASR").Range("ABD" & rowNum).Value = txt2FeePrice2.Value
    Worksheets("ASR").Range("ABE" & rowNum).Value = txt2Rate2.Value
    Worksheets("ASR").Range("ABF" & rowNum).Value = txt2FeeType3.Text
    Worksheets("ASR").Range("ABG" & rowNum).Value = txt2FeePrice3.Value
    Worksheets("ASR").Range("ABH" & rowNum).Value = txt2Rate3.Value
    Worksheets("ASR").Range("ABI" & rowNum).Value = txt2FeeType4.Text
    Worksheets("ASR").Range("ABJ" & rowNum).Value = txt2FeePrice4.Value
    Worksheets("ASR").Range("ABK" & rowNum).Value = txt2Rate4.Value
    Worksheets("ASR").Range("ABL" & rowNum).Value = txt2FeeType5.Text
    Worksheets("ASR").Range("ABM" & rowNum).Value = txt2FeePrice5.Value
    Worksheets("ASR").Range("ABN" & rowNum).Value = txt2Rate5.Value
    Worksheets("ASR").Range("ABR" & rowNum).Value = txt2FlatHaul.Value
    Worksheets("ASR").Range("ABS" & rowNum).Value = txt2FlatDisposal.Value
    Worksheets("ASR").Range("ABR" & rowNum).Value = "Accepted"
End Sub

Private Sub SaveCont7(rowNum As Integer)
    '**Save Container 7 information'
                
    Worksheets("ASR").Range("ACB" & rowNum).Value = txt1Vendor.Text
    Worksheets("ASR").Range("ACF" & rowNum).Value = txt1TypeWaste.Text
    Worksheets("ASR").Range("ACC" & rowNum).Value = txt1NumContain.Value
    Worksheets("ASR").Range("ACD" & rowNum).Value = txt1SzContain.Value
    Worksheets("ASR").Range("ACE" & rowNum).Value = txt1Mes.Text
    Worksheets("ASR").Range("ACG" & rowNum).Value = txt1NumPickups.Value
                
    Worksheets("ASR").Range("ACI" & rowNum).Value = txt2BaseSvc.Value
    Worksheets("ASR").Range("ACJ" & rowNum).Value = txt2EnvFee.Value
    Worksheets("ASR").Range("ACK" & rowNum).Value = txt2FuelFee.Value
    Worksheets("ASR").Range("ACL" & rowNum).Value = txt2FeeType1.Text
    Worksheets("ASR").Range("ACM" & rowNum).Value = txt2FeePrice1.Value
    Worksheets("ASR").Range("ACN" & rowNum).Value = txt2Rate1.Value
    Worksheets("ASR").Range("ACO" & rowNum).Value = txt2FeeType2.Text
    Worksheets("ASR").Range("ACP" & rowNum).Value = txt2FeePrice2.Value
    Worksheets("ASR").Range("ACQ" & rowNum).Value = txt2Rate2.Value
    Worksheets("ASR").Range("ACR" & rowNum).Value = txt2FeeType3.Text
    Worksheets("ASR").Range("ACS" & rowNum).Value = txt2FeePrice3.Value
    Worksheets("ASR").Range("ACT" & rowNum).Value = txt2Rate3.Value
    Worksheets("ASR").Range("ACU" & rowNum).Value = txt2FeeType4.Text
    Worksheets("ASR").Range("ACV" & rowNum).Value = txt2FeePrice4.Value
    Worksheets("ASR").Range("ACW" & rowNum).Value = txt2Rate4.Value
    Worksheets("ASR").Range("ACX" & rowNum).Value = txt2FeeType5.Text
    Worksheets("ASR").Range("ACY" & rowNum).Value = txt2FeePrice5.Value
    Worksheets("ASR").Range("ACZ" & rowNum).Value = txt2Rate5.Value
    Worksheets("ASR").Range("ADD" & rowNum).Value = txt2FlatHaul.Value
    Worksheets("ASR").Range("ADE" & rowNum).Value = txt2FlatDisposal.Value
    Worksheets("ASR").Range("ADD" & rowNum).Value = "Accepted"
End Sub

Private Sub SaveCont8(rowNum As Integer)
    '**Save Container 8 information'
                
    Worksheets("ASR").Range("ADN" & rowNum).Value = txt1Vendor.Text
    Worksheets("ASR").Range("ADR" & rowNum).Value = txt1TypeWaste.Text
    Worksheets("ASR").Range("ADO" & rowNum).Value = txt1NumContain.Value
    Worksheets("ASR").Range("ADP" & rowNum).Value = txt1SzContain.Value
    Worksheets("ASR").Range("ADQ" & rowNum).Value = txt1Mes.Text
    Worksheets("ASR").Range("ADS" & rowNum).Value = txt1NumPickups.Value
                
    Worksheets("ASR").Range("ADU" & rowNum).Value = txt2BaseSvc.Value
    Worksheets("ASR").Range("ADV" & rowNum).Value = txt2EnvFee.Value
    Worksheets("ASR").Range("ADW" & rowNum).Value = txt2FuelFee.Value
    Worksheets("ASR").Range("ADX" & rowNum).Value = txt2FeeType1.Text
    Worksheets("ASR").Range("ADY" & rowNum).Value = txt2FeePrice1.Value
    Worksheets("ASR").Range("ADZ" & rowNum).Value = txt2Rate1.Value
    Worksheets("ASR").Range("AEA" & rowNum).Value = txt2FeeType2.Text
    Worksheets("ASR").Range("AEB" & rowNum).Value = txt2FeePrice2.Value
    Worksheets("ASR").Range("AEC" & rowNum).Value = txt2Rate2.Value
    Worksheets("ASR").Range("AED" & rowNum).Value = txt2FeeType3.Text
    Worksheets("ASR").Range("AEE" & rowNum).Value = txt2FeePrice3.Value
    Worksheets("ASR").Range("AEF" & rowNum).Value = txt2Rate3.Value
    Worksheets("ASR").Range("AEG" & rowNum).Value = txt2FeeType4.Text
    Worksheets("ASR").Range("AEH" & rowNum).Value = txt2FeePrice4.Value
    Worksheets("ASR").Range("AEI" & rowNum).Value = txt2Rate4.Value
    Worksheets("ASR").Range("AEJ" & rowNum).Value = txt2FeeType5.Text
    Worksheets("ASR").Range("AEK" & rowNum).Value = txt2FeePrice5.Value
    Worksheets("ASR").Range("AEL" & rowNum).Value = txt2Rate5.Value
    Worksheets("ASR").Range("AEP" & rowNum).Value = txt2FlatHaul.Value
    Worksheets("ASR").Range("AEQ" & rowNum).Value = txt2FlatDisposal.Value
    Worksheets("ASR").Range("AEP" & rowNum).Value = "Accepted"
End Sub
